MaxiMac 2000 December/MaxiMac 109.iso/KitWeb/Wanadoo/Media/Present.dcr/Save_5_Scripts généraux.ls

Text File | 2000-10-10 | 5.3 KB | 186 lines

on aWait pSec
  global gWaiticks
  t = pSec * 60
  if (the ticks - gWaiticks) < t then
    go(the frame)
  else
    go(the frame + 1)
  end if
end

on aNumFresque vP
  vLstNF = []
  repeat with i = (vP * 2) - 1 to (vP * 2) + 4
    if i > 0 then
      if i > 9 then
        append(vLstNF, "D00" & string(i))
      else
        append(vLstNF, "D000" & string(i))
      end if
      next repeat
    end if
    append(vLstNF, EMPTY)
  end repeat
  return vLstNF
end

on aWidth vM
  vM.width = the stageRight - the stageLeft
  WTMin = the stageRight - the stageLeft
  WTMax = 0
  repeat with i = 1 to vM.char.count
    WT = charPosToLoc(vM, i)[1]
    if WT < WTMin then
      WTMin = WT
    end if
    if WT > WTMax then
      WTMax = WT
    end if
  end repeat
  vM.width = WTMax - WTMin + vM.fontSize
end

on aSoundFade pCh, pVol
  if the volume of sound pCh > pVol then
    repeat while the volume of sound pCh > pVol
      set the volume of sound pCh to the volume of sound pCh * 0.80000000000000004
      startTimer()
      repeat while the timer < 3
        updateStage()
      end repeat
    end repeat
  else
    repeat while the volume of sound pCh < pVol
      set the volume of sound pCh to the volume of sound pCh * 1.19999999999999996
      startTimer()
      repeat while the timer < 3
        updateStage()
      end repeat
    end repeat
  end if
end

on aSoundFadeOut pCh
  global gParV5
  repeat while the volume of sound pCh > 10
    set the volume of sound pCh to the volume of sound pCh * 0.80000000000000004
    startTimer()
    repeat while the timer < 3
      updateStage()
    end repeat
  end repeat
  puppetSound(pCh, 0)
  set the volume of sound pCh to gParV5.sonLvl[pCh]
end

on aGoSac pSens
  global gSacNum, gPC
  if gPC then
    vLstSac = ["SacHPage", "SacGoa", "SacMes", "SacAEco", "SacTR", "SacSBox", "SacWce", "SacCyber", "SacAcro", "SacReal", "SacQT"]
  else
    vLstSac = ["SacHPage", "SacAEco", "SacTR", "SacSBox", "SacAcro", "SacReal", "SacQT"]
  end if
  gSacNum = gSacNum + pSens
  if gSacNum < 1 then
    gSacNum = vLstSac.count
  end if
  if gSacNum > vLstSac.count then
    gSacNum = 1
  end if
  aLienSac(vLstSac[gSacNum])
  go(vLstSac[gSacNum])
  cursor(-1)
end

on aLienSac vSac
  global gSacLien1, gSacLien2, gPC, gNoquit
  gNoquit = 0
  gSacLien1 = []
  gSacLien2 = []
  case vSac of
    "SacHPage":
      if gPC then
        gSacLien1 = [EMPTY, "Filemake\Chp2\Win_32\Chp20.exe", "Services"]
        gSacLien2 = ["Services\Filemake\enregist.pdf", "acrobat\reader\Acrord32.exe", EMPTY]
      else
        gSacLien1 = [EMPTY, "FileMaker:Claris Home Page 2.0:Installation Claris Home Page", "Services"]
        gSacLien2 = ["Services:Filemaker:enregist.pdf", "Acrobat Reader 4.0:Acrobat Reader 4.0", EMPTY]
      end if
    "SacCyber":
      gSacLien1 = [EMPTY, "CPatrol\Cpatrol.exe", "Services"]
    "SacSBox":
      if gPC then
        gSacLien1 = [EMPTY, "SecuBox\sbf_w_pc.exe", "Services"]
        gSacLien2 = ["Services\SecuBox\sbox_f_w.pdf", "acrobat\reader\Acrord32.exe", EMPTY]
      else
        gSacLien1 = [EMPTY, "Security BOX® FreeWare v1.0a:free10a.sea", "Services"]
        gSacLien2 = ["Services:Security BOX® FreeWare v1.0a:sbox_f_w.pdf", "Acrobat Reader 4.0:Acrobat Reader 4.0", EMPTY]
      end if
    "SacTR":
      if gPC then
        gSacLien1 = [EMPTY, "TVRadio\Setup.exe", "Services"]
      else
        gSacLien1 = [EMPTY, "TVRadio.com:TV-Radio.com_Installer", "Services"]
      end if
    "SacAcro":
      if gPC then
        gSacLien1 = [EMPTY, "Acrobat\ar40fra.exe", "Services"]
      else
        gSacLien1 = [EMPTY, "Acrobat Reader:Installation de Reader 4.0", "Services"]
      end if
    "SacReal":
      if gPC then
        gSacLien1 = [EMPTY, "RealPlayer\rp8_fr.exe", "Services"]
      else
        gSacLien1 = [EMPTY, "RealPlayer:RealPlayer Installer", "Services"]
      end if
    "SacQT":
      if gPC then
        gSacLien1 = [EMPTY, "QTime\QuickTimeInstaller.exe", "Services"]
      else
        gSacLien1 = [EMPTY, "QuickTime:Installateur QuickTime", "Services"]
      end if
    "SacMC":
      gNoquit = 1
      if gPC then
        gSacLien1 = [EMPTY, "macollec\macollec.exe", "Services"]
      else
        gSacLien1 = [EMPTY, "macollec:macollec", "Services"]
      end if
    "SacWce":
      gSacLien1 = [EMPTY, "WinCE_H\Setup.exe", "Services"]
      gSacLien2 = [EMPTY, "WinCE_P\Setup.exe", "Services"]
    "SacGoa":
      gSacLien1 = [EMPTY, "GoaLE\Setup.exe", "Services"]
    "SacAEco":
      if gPC then
        gSacLien1 = [EMPTY, "Apres_l_ecole\Setup.exe", "Services"]
      else
        gSacLien1 = ["Services:Comment installer La Tribu ?", "SimpleText", EMPTY]
      end if
    "SacMes":
      gSacLien1 = [EMPTY, "Messager\Messager.exe", "Services"]
    "Guide":
      gNoquit = 1
      if gPC then
        gSacLien1 = ["GuideInstal.pdf", "acrobat\reader\Acrord32.exe", EMPTY]
      else
        gSacLien1 = ["GuideInstal.pdf", "Acrobat Reader 4.0:Acrobat Reader 4.0", EMPTY]
      end if
    "Cgv":
      gNoquit = 1
      if gPC then
        gSacLien1 = ["cgv.pdf", "acrobat\reader\acrord32.exe", EMPTY]
      else
        gSacLien1 = ["cgv.pdf", "Acrobat Reader 4.0:Acrobat Reader 4.0", EMPTY]
      end if
    "FA":
      gNoquit = 1
      if gPC then
        gSacLien1 = ["Formul.pdf", "acrobat\reader\acrord32.exe", EMPTY]
      else
        gSacLien1 = ["Formul.pdf", "Acrobat Reader 4.0:Acrobat Reader 4.0", EMPTY]
      end if
  end case
end